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Sbegin JNLDEFINT,V04-000 


PARRA RBAALALAALALAAALESALALELALALL ELAS ELE REESE EEE EERSTE CSREES SECTS a easy 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE 44 FURNISHED UNDER A LICENSE AND MAY BE USED AND sorter 
ONLY IN ACCORDANCE ae THE bs oF SUCH LICENSE AND WITH THE 
N ION OF C rnp , 

OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
CORPORATION. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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acility: JOURNALING : DEFINITION OF INTERNAL SYMBOLICS 

bstract: 
This module contains the symbolic definitions for non-user accessible 
data structures. 

Author: Joost Verhofstad 

Modified by: 


v03-052 MKLO210 Lyo 
Add MCSID field ne S NLASG UCBDATA message. 


v03-051 MKLO199 Mary Kay Lyons 29-NOV-1983 
Add JNLMSGSW_JNL_PROT, 


v03-050 Lv0418 Larry Yetto 
Add EPID and ARB_PRIV to JNLCWQDEF 


16-DEC-1983 


27-SEP-1983 15:10:06 


v03-049 LY0415 Larry Yetto 13-SEP-1983 10:40:11 
Add REQCSB and some spare fields to JNLBTX structure 

V03-048 MKLO168 1? f Kay Lyons 23-AUG-1983 
Add STS field to if MSG UCBDATA message. 

v03-047 LY0406 Larry Yetto 3-AUG-1983 08:57:57 
Fix JNLMSGDATA structure. Change IOSTS$V_RESUBS 
to I1OSTS$V_RESUB 


SARA AAS AAA AAA AAAS ENON ANN yim oy yo NON 
> “+ 


ae 
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v03-046 LY0405 Larry Yetto 2-AUG"1983 14:45:47 
Add JNLMSGDATA structure 

v03-045 LY0403 ery ve 1-AUG-1983 15:18:18 

hdd JNLBXSTS$V iat: PL phe JNLBXSTSSV_CNXBRK 


v03-044 LY0399 La Tr Yetto 28-JUL-1983 15:37:31 
Add JNLBXSTS and JNLBTX structures to hold information relavant 
to block transfer operations in progress that were initiated 
from some other node. 


v03-043 MKLO132 a Kay Lyons 24=JUL-1983 
chanes JNLRC to contain an offset to filter information. 


VO3-042 MKLO126 ry Kay L 10-JUL-1983 
Remove JNLRM$B_ gnu P det inition, Add JNLMSG 
definitions for creating journal oa ie 78, database. 
cathy A JNLRCS$Q_DATTIM to overlay ‘ LRC 
a4 e file Version number in t mat oe honiek 
SSM R REM_WRITE and IOSTS$V TREN WRIT E. 
Make Secreet names 12 bytes and various changes for send- 
journal-message stuff. 


v03-041 ne ae | Mary Kay tyes 22-JUN-1983 
2 pe tater to mount item List in the ADB. Add 
UPDA E_ADL message definitions. 


v03-040 LY0383 Larry Yetto 16-JUN-1983 17:43:21 
Move cluster message dispatch codes to CSYSLOA.SRCJCLUSTER.SDL 

v03-039 PRBO196 aul Beck 12-JUN-1983 14:20 
Add RUESV_NOFAC, PRUESY “NOOB. 

V03-038 MKL0096 Mary Kay Lyons 01-Jun-1983 


add JNLRCDEF. 


v03-037 MKL0093 ory Ee 
heslace missing OM SGDEF. 


v03-036 LY0373 etto 24-MAY-1983 15:52:40 
Add new BCB fields. for "high sequence number completely 
in the buffer and written. “ JNLCWQ structure. Add 
fields to overlay RUE$Q_RUID 


Lyons 27-MAY-1983 


v03-035 MKL0087 Mary Kay Lyons 19=-MAY-1983 
Change JNLMSGDEF. 
v03-034 JSv0289 Joost Bay oh 18-MAY-1983 
in 


Reorganize and Pip Ag 
JNLDEF 


INLSYSDEF SDL 
JNLACPDEF . SDL 
JNLFILE.SDOL 


v03-033 Lv0361 Larry Yetto 9-MAY-1983 12:32:19 
Rename CJLMSG macro to CJFMSGFNC. Add JNLACBM . 


AAAS AAAAAAAAAAAAAAAAALAAAAAAAAAAAAAARAAAAARPAAAASAAAAAAA 
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Add JNLLOGSV_SLVCRFAIL. Remove JNLCB def. 


v03-032 JS$Vv0229 Joost Verhofstad 27-APR=-1983 
Add RUSYNC bits 
v03-031 LY0355 Larry Yet 20-APR-1983 10:03:27 


Add cluster message dispaten codes CJLMSG macro and remove 
the obsolete SCS message 
Remove ENT_TYPE codes ene bit “definitions from FLTR macro 


{ 

{ 

{ 

{ 

{ 

; 

{ v03-030 MKL0068 08-APR-1983 
¢ Add RCBSL _LSTBLKI “one Kates’ cs _LSTBLK2. 

{ v03-029 JjSv0212 Joost Verhofstad 06-APR-1983 
¢ Change ACP filter to contain two date-time fields 

{ v03-028 LY0346 Larry Yetto 6-APR-1983 11:03:17 
{ Add the JNLCB structure. This structure is the Journal control 
} block for slave nodes with no channels. 

{ v03-027 MKL0062 30-MAR-1983 
¢ Add JFTESL _FRSTUVBN Y Rebst es yO STBLK1, and RCBSL_LSTBLK2. 
{ v03-026 JSVv190 Joost Verhofstad 14-MAR-1983 
$ Add JFTE fields 

{ v03-025 MKL0048 24-FEB-1983 
¢ Update conments — ft st yoMt and JFTESL_DEVNAM. 

{ v03-024 JSv0151 Joost Verhofstad 17-FEB-1983 
; Add JMT$L_BASEVBN and JMT$L_LTVBN and SFT$L_BASEVBN 
{ v03-023 ySv014 Joost Verhofstad 14-FEB-1983 
: Add BCBSM. NWVPR 

{ v03-022 JSv0141 Joost Verhofstad 09-FEB-1983 
¢ Add JFTESL_NEXTVER 

{ v03-021 JSv0137 Joost Verhofstad 03-FEB-1983 
t replace source, put in null packet 

{ v03-020 LY0245 Larry Yetto 10-JAN-1983 
? Move RUS structure to JNLDEF.. SDL 

{ v03-19 JSV0116 Joost Verhofstad 04-Jan-1983 
{ Pemove PROCNAME, BINARY, PROCNODE, PROCGROUP, 

; PROCRUNTIME fields from’ FLTR structure 

{ v03-18 .25Vv0107 Joost Verhofstad 04-Jan-1983 
¢ Fix RCB fields + commentary 

{ vO3-17 JSVv0106 Joost Verhofstad 30-Dec-1982 
; Aad RCB fields 

‘ v03-16 JSV0105 Joost Verhofstad 12-Dec-1982 


Add JFTE field 
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v03-15 


v03-14 


v03-13 

v03-12 

v03-011 
v03-010 
v03-009 
v03-008 
v03-067 


v03-006 


v03-005 
v03-004 


v03-003 


v03-002 


v03-001 


J$v0097 Joost Verhofstad 23-Nov-1982 
Add OPCHDR data structure 
J$v0087 Joost Verhofstad 28-0 t-1982 


Add TBUF data structure and GTB, RCB, RHD 
and JFTE symbols. 


J$v0078 Joost Verhofstad 08-0c t-1982 
Add CJL data structure 


JSV0064 Joost Verhofstad 22-Sep-1982 
Aad a few GIB, JMT, JFTE fields for tape reading 
JSV0054 hofstad 26-Aug-1982 

Add FLTR$V _OUTRANGE vA FLTRSS_ OUTRANGE 
JAY0007 John A. Ywoskus 02-Aug-1982 
Generate SM's for status bits in RUE and RUS. 
JAY0006 John A. Ywoskus 21-Jul-1982 
Add INDEX field = RUS. 

JSV0024 Joost Verhofstad 21-Jul-1982 
Add JNLLOG bits 

JAY0005 John A. Ywoskus 21-Jul-1982 
Make RUESW_ INLENT be a longword. Add this fietd to RUS. 
JAY0004 John A. Ywoskus 15-Jul-1982 


Change RUS structure. Dele te yd and add entry 
attributes. Add COUNT field to NDL 


JAY0003 John A. Ywoskus 12-Jul-1982 
Add JNLCNT field to RUE. 

JSv00 Joost Verhofstad 7-Jul-1982 

BUFFERSW_JNLID => BUFFERSL _JNLID 

gavoode John A. Yuoskus 06-Jul-1982 
Rename RULIST structure to RUS. Change RESIDUAL 
status to RESID_FOR and ResiD -BCK in RUE and RUS. 
Add an ‘INDEX’ Tield to RUE. 

Lv0028 Larr 29-Jun-1982 
Added Name table Dev A. Tyee (NDL) definition 
JAY0001 John A. Ywoskus 17-Jun-1982 


Added JNLDB, message structures for cluster journalin 


Delete RUDEF structure, replace with a version of RULYST. 
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module SCJFFLGDEF; 
{eee 


/* 
. CJFFLG = Flags that can be returned from SENSEMODE 
® 


[t-- 
ore abe FFLGDEF union gH a CJFFLGS; 
F_BITS structure 
Bitfield mask; /* this is a tape based journal 
SPOOL bitfield mask; /* the tape is being spooled at present 
CJFFLGDEF BITS; 


end 
end CJFFLGDEF; 
end_module SCJFFLGDEF; 


f 
/ 
4 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
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module SJNLBTXDEF ; 


{toe 

/* 

/* JNLBTX = Journal block transfer 

/* This structure is used to define the offsets in the 

oe buffer allocated by CNX for our use with a block transfer. 
[t-- 


aggregate JNLBTXDEF structure fill prefix JNLBTX$; 
JNLBXSTS Lonaqword eee /* 
ed; 


Address if BXIP for this request 
RMBLK Longword unsign 


/* Address of Remaster block 


REQCSB lLongword unsigned; /* Address of requestor's CSB 
SPARE1 lLongword unsigned; /* Spare longwor 
che 7 Longword unsigned; /* Spare Longword 
SPARES lLongword unsigned; /* Spare longword 
constant LENGTH equals . tag K ; /* Structure size 
constant LENGTH equals . tag C ; /* Structure size 


end JNLBIXDEF; 
end_module SJNLBIXDEF; 


ae 


A 
~~. . = = = = 
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module SJNLDMTDEF ; 
/e+4 


/* 
/* JNLDMT - codes for the parameters passed with dismount journal 
/* medium. These codes are used to identify the parameters 


s to the Journal ACP, when passed in the complex buffer. 

id 

[too 

constant DNAM equals 1 prefix JNLDMT tag $C; /* device name parameter code 
constant DGRPN equals ¢ prefix JNLDMT tag $C; /* group name parameter code 

constant FLAGS equals prefix JNLDMT tag $C; /* Tlags value parameter code 


end_module SJNLDMTDEF; 


~~. = SS SS | a 
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module SIOSTSDEF; 
Jee 


/* 

/* 10 status masks. These masks are in the third byte of IRP$L_I0STS1 

/* and are weet duri ng a write operat ten to indicate 

/* the properties of the pert (chunk) of the entry being written at the time, 
/* and the status of the 10 request at certain time 

/* The driver is the only one to use this 1/0 status “field. 


/e 
[to-- 
overepete ie 1OSTSDEF union ae we IOSTS$; 
F_BITS structure f 
reich bitfield mask; /* First entry 
MULCH bitfield mask; /* Multiple entries 
SEQNOVF bitfield mask; /* sequence number overflow 
WAITFIO bitfield mask; /* this IRP is nt pe, for buffer 
/* write to complete. 
REMOTE bitfield mask; /* This is an internal IRP and the 
/* 0 Spores ten was oServer from a remote node 
RESUB bitfield mask; /* is request has no 


/* been resubmitted oat if set 
end IOSTSDEF BITS; 
end IOSTSDEF; 


end_module SIOSTSDEF; 


m1 
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module SJNLMSGDEF ; 
Jeet 


/* 
. JNLMSG = JNLACP = Driver Cluster Message Definitions 


[t-o- 


aggregate JNLMSGDEF structure fill prefix JNLMSGS$; 

FLINK longword unsigned; /* forward Link 
BLINK longword unsigned; /* backward Link 
SIZE word unsigned; /* size of structure 
TYPE byte unsigned; /* structure type 
SUBTYP ayte unsigned; /* structure sub-type 
MSG_TYPE byte uns message type 


originator’s CSID 


constant "'HDRLEN'' equals . prefix JNLMSGS$ tag K; /* header Length 
constant "‘HDRLEN’ equals . prefix JNLMSG$ tag C; /* header Length 


constant ( 
WRTBUF INF /* Write buffer information 
»ALLDEV /* Add allocated device to ADL 
-DEALLDEV /* Delete allocated device from ADL 
-MNTDEV /* Add mounted device to ADL 
»DMNTDEV /* Delete mounted device from ADL 


CRESLVDS /* Create slave data structures 
S equals 1 increment 1 tag C; 


end JNLMSGDEF ; 


/e 
. MESSAGE DEPENDENT EXTENSIONS 
A MESSAGE 1 = Write buffer information 


onerepete JNLMSGDEF1 structure fill protts JNLMSGS; 
FILL_1 byte dimension JNLMSG$C_H RLEN fill prefix JNLMSGDEF1 tag $$; 


JNL_SEQN Longword unsigned; * Highest jnl seq # written to disk 
LSEGNO Longword unsigned; /* Lowest local seg # outstanding 
SEQN_TCNT word unsigned; /* total # writes in CWQ for which jnl seq # have been 


/* assigned (1 se er follows) 


# 
SEQN_CCNT word unsigned; /* current count o rites in Sue for which jnl seq # have been 


/* assigned (1 seq # per follows 
FILL_2 word unsigned fill prefix JNLMSGDEF1 tag $$; /* spare 


constant MSG1_LEN equals . prefix JNLMSG$ tag K; /* Size of fixed part MSG! 
/* Size of fixed part MSG1 


constant MSG1_LEN equals . prefix JNLMSG$ tag C; 
end JNLMSGDEF 1; 
aggregate JNLMSGDEF1_SEQN structure fill prefix JNLMSGS$; 


/* there is one of these JNLMSGDEF1_SEOQN pieces per entry in the CWQ for 
/* which a journal seq # has been aSsigned, in the message 


~~. =. & = & = SS 
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/e 
SEQ_NUM Longword unsigned: 
FLAGS OVERLAY union fill; 
FCAGS | 


constant ""SEQENTLEN'' equals . prefix JNLMSG$ tag K; /* Length of sequence 
constant ‘"SEQENTLEN’ equals . prefix JNLMSG$ tag C; /* number information 


end JNLMSGDEF1_SEQN; 


/* 
fe MESSAGE DEPENDENT EXTENSIONS 


1 
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/* Entry journal sequence number 


/* flags longword 


* Last write on a new version request 


/ 
/* Only part of the entry saved 


MESSAGE 2. 3, 4, 5. - Update the ADL 


aggregate JNLMSGDEF2 structure fill 
FILL_1 byte dimension JNLMSGSC_H 


STATOS word unsigned; 
ITMLSTLEN word unsigned; 
ITMLSTOFF word ates: 
DEVNUM word unsigned; 
NAMELEN oyte unsigned; 
DEVNAM by 


constant MSG2_LEN equals . prefix JNLMSG$ tag K; 
constant MSG2_LEN equals . prefix JNLMSG$ tag C; 


end JNLMSGDEF 2; 


e 
- MESSAGE DEPENDENT EXTENSIONS 


ap hy JNLMSG 
* status of device 


/* Item List Length (mount only) 
st (mount only) 


/* Offset to item Li 


/* # of dew names which follow 


device name length 


H /* 
e unsigned dimension 15; /* device name (ASCII) 


/* Size of fixed part MSG2 
/* Size of fixed part MSG2 


/* MESSAGE 6 = Create slave data structures 
/* Each one byte item code in the message is followed by a longword which 
/* is either the value or the offset to the information indicated. 


aggregate JNLMSGDEF6 structure fill prefix JNLMSGS$; 


constant ( 


/ 
/ 
2 JNLNAM / 
eBLDJNLRM / 
RMFLGS / 
AM / 

/ 

/ 

/ 


»BLDADL 


Kane ee 


Build UCB - item value = journal type 
* offset to slave UCB data 


offset to ASCIC journal name 
Build a remaster block = no item 
JNLRM flags 

offset to ASCIC ACP name 

offset to ASCIC tape group name 
offset to ASCIC disk name 

Build an ADL = no item 


$: 
RLEN fill prefix JNLMSGDEF2 tag $$; 


= eee 


roo 


~~ 2. SSE 
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eBLDRUL /« Build an RUL = no item 
MAXDSICOD /* Maximum value 
j equals 1 increment 1 tag C; 
ITEMCODE byte unsigned; /* Item code 
ITEM Longword unsigned; /* item information (value or offset) 


constant IENTLEN equals . prefix JNLMSG$ tag C; /* Size of item entry 
end JNLMSGDEF6; 
aggregate JNLMSGDEF6_UCBDATA structure fill prefix JNLMSG$; 

OWNUIC Longword unsigned; /* Owner UIC 


MCSID Longword unsigned; /* Master CSID 
DEVCHAR Longword unsigned; /* Device characteristics 
DEVCHAR2 Longword uns gned: /* Device characteristics 2 
JNL_SEQNO Longword unsigned; /* Journal sequence number 
JNL QUOT Longword unsigned; /* Quota for RU journals 
JNL_MASK Longword unsigned; /* Mask for AT journals 
vPROT word unsigned; /* protection 
JNL_PROT word unsigned; /* protection 
JNL_ID word unsigned; /* Journal ID 
JNL_MXENT word unsigned; /* Maximum entry size 
JNL_MUNIT word pra cEnees /* Master unit number 

; /* Device status 


DEVSTS word yns igne ae 
STS word unsigned; /* bits that need duplication on slave 
AMOD byte unsigned; /* Access mode 
constant UCBDATALEN equals . prefix JNLMSG$ tag C; /* Size of entry 

end JNLMSGDEF6_UCBDATA; 


end_module SJNLMSGDEF ; 


pn ee ee ee 
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module SJNLMSGDATADEF; 


Jee 

/* 

/* JNLMSGDATA - 

/* 

[t-- 

aggregate JNLMSGDATA structure fill prefix NLMSGDATAS; 
FLINK Longword unsigned; /* Forward Link 
BLINK as unsigned; /* Backward Link 
SIZE word unsigned; /* structure size 
TYPE byte unsigned; /* structure a ag code 
SUBTYPE byte unsigned; /* structure sub type field 
VAL1 longword unsigned; /* misc longword of data 
= lLongword unsigned; /* misc longword of data 
VAL3 longword unsigned; /* misc longword of data 


VAL4 Longword unsigned; /* misc longword of data 
VALS Longword unsigned; /* misc longword of data 
constant ‘‘LENGTH’' equals . prefix JNLMSGDATA$ tag C; 
constant "LENGTH" equals . prefix JNLMSGDATAS tag K; 


end JNLMSGDATA; 
end_module SJNLMSGDATADEF ; 
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module SWBLDEF; 
{eee 


/* 
oe WBL = Wait Block List 
_ When a thread is being rescheduled all its state is saved in a WBL 


[to- 


aggre ote WBLDEF structure fill prefix WBL$; 


QFL Longword unsigned; /* forward q Link 
wet QBL longword unsigned: /* backward q Link 
SIZE yore unsigned; /* size of structure 
FILL_1 word fi t prefix WBLDEF tag $$; /* spare 
STATOS lLongword unsigned; /* status 
ASTBLK Longword a /* address a Block for rescheduling 
IRP_ longword wees /* IRP addre 
USTSIZE word unsign /* user eteck save block size 
FILL_2 word fill eretia WBLDEF tag $$; /* descriptor type field 
UST Tongword unsigned; /* address user stack save block 
USTADDR | coat pot Rn unsigned; /* original start address user stack 
KSTSI "i wor ed; /* kernel stack save block size 
A word fill eretia WBLDEF tag $$; /* descriptor 4 field 
Tongword unsigned; /* address kernel stack save block 

ESTADDR t cock aeeten unsigned; /* original start Aga kernel stack 

word unsi /* own save block siz 
stir ry word fill pret ix WBLDEF tag $$; /* descriptor type field 
OWN Longword unsi gned /* — own space save block 
FILL_5 longword fill prefix WBLDEF tag $$; /* s apere 
GBLSIZE word unsigne /* 4 obal save block size 
FILL_.6 word fill pret ix WBLDEF tag $$; /* descriptor type field 
GBL longword unsi gre /* address global space save block 
FILL_7 ongword fill prefix WBLDEF tag $$; /* spare 
constant ‘LENGTH’ equals . prefix WBL$ tag K; /* Length structure 
constant “LENGTH equals . prefix WBL$ tag C; /* length structure 

end WBLDEF ; 


end_module SWBLDEF ; 


C—O +--+ - —_—_ -—- ---- Orr ee 
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module SOPCHDRDEF ; 
{eee 


& 
: OPCHDR = OPCOM message header 


* This structure defines the fields in the comeer orice eessege 

/* header. This data structure is defined in CSYS.SRCISYSSNDMSG.MAR 

/* in the commentary at the top. If this data structure ever changes in that 
“ source module, then we need to change it here also. 


/t=- 


~~ SS 


aggregate OPCHDRDEF structure fill prefix OPCHDRS; 


word unsigned; /* message type 
RMBX word unsigned; /* reply mailbox channel number 
PRIV quadword unsigned; /* sender's privilege mask 
UIC Longword unsigned; /* sender's 
USRNAM byte unsigned dimension 12; /* sender's USERNAME, 12 bytes blank filled 
ACCNT byte unsigned dimension 8; /* sender's ACCOUNT, 8 bytes blank filled 


BPRIO byte une iered: 

FILL.1 byte fill prefix OPCHDRDEF tag $$; /* unuse 

constant “LENGTH’’ equals . prefix OP HORS tag K; /* Length structure 

constant ““LENGTH’’ equals . prefix OPCHDRS tag C; /* Length structure 
end OPCHDRDEF ; 


end_module SOPCHDRDEF ; 


/* sender's base priority 


JNLSYSDEF : The following modules need to go into SYSDEF 


ARB RARARASLALALALALELAAL ALES ESAS ASE LEST ASE EEE E EERE REESE RASS EERE RRR ARES 


Copyright (c) 1980 
by DIGITAL Equipment Corporation, Maynard, Mass. 


® 
® 
o 
* 
we 
* This software is furnished under a License and may be used and copied 
* ~“T in accordance with the terms of such License and with the 
* inclusion of the above copyright notice. This software or any other 
* copies thereof may not be provided or otherwise made available to any 
* other person. No title to and ownership of the software is hereby 
* transferred. 

® 

® 

e 

e 

® 

* 

e 

e 

* 


The information in this software is subject to change without notice 
ene seoyls not be construed as a commitment by DIGITAL Equipment 
orporation. 


DIGITAL assumes no responsibility for the use or reliability of its 
software on equipment which is not supplied by DIGITAL. 


eaeneneneneeneeeeaeneenennne 
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This module contains the symbolic definitions for non-user accessible 


data structures. 
: Joost Verhofstad 


Modified by: 


18=MAY=1983 
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module SABEDEF ; 
{ree 


ABE = Al-BI List element 

/* For each Al or BI ppernes written to from inside an RU, the journal 
/* name is in the Al-List or Bl-list (for Al and B] journals resp) 

~ This structure is the slot in the List, as used for one journal 


/t=- 


aggregate ABEDEF structure fill prefix ABES; 
JNLNAME character; /* Length name 


NAME byte unsigned dimension 18; /* journal name 
STATUS_OVERLAY union fill; 
STATUS word unsigned; /* status 
STATUS_BITS structure fill; 
PURGED bitfield mask; /* slot not used 
end STATUS BITS; 


BI 
end STATUS_OVERLAY; 
FILL_1 byte fill prefix ABEDEF tag $$; /* spare 
constant "LENGTH" equals . prefix ABES tag K; /* Length structure 
. constant “LENGTH equals . prefix ABE$ tag C; /* Length structure 
en 3 


end_module SABEDEF ; 


~~. = & = > = 


—_—_—— 
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module SABLDEF ; 
Jee 


/t 
/* ABL = Al-BI1 List 
/* 
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/* For each Al or BI journal written to from inside an RU, the journal 
. name is in the Al-List or Bl-list (for Al and BI journals resp) 
tb 


/t-<- 


aggregate ABLDEF structure fill prefix ABLS$; 


XT_ longword ee 

SLOTS word unsigned; 

JNLS word unsigned; 

SIZE word unsigned; 

TYPE_OVERLAY union fill; 
STRUCT byte unsigned; 
TYPE aye unsigned; 

end TYPE OVERLAY; 

SUBTYPE byte unsigned; 


/* next ABL 
/* number of slots in List 


/* number of journals in List 


/* size structure 


/* structure type 
/* data type field 


/* CJF subtype field 


constant FIXED_LEN equals . prefix ABL$ tag K; /* Length structure 
‘ conetens FIXED_LEN equals . prefix ABL$ tag C; /* Length structure 
en H 


end_module SABLDEF ; 


an 


—_s se eee He 
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module SADBDEF; 
/eee 


/e 

mo ADB - Allocated Device Block 

/* For each disk or tape device allocated by a Journal ACP, the 
/* ADL off the UCB for the ACP Control Journal contains a ADB 


/* (Allocated Device Block). The ADB contains the device name 
a and some control information 


[t-- 


near pyete ADBDEF structure fill prefix ADBS; 


K ponavers unsigned; /* Link to next ADB in same volume set 
STATUS_OVERLAY union fill; 
STATUS word unsigned; /* status of device and this ADB 
STATUS BITS structure fill; 
C bitfield mask; /* allocated during MOUNT 
MOUNTED bitfield mask; /* device is mounted 
PURGED bitfield mask; /* this ADB is available 
end STATUS BITS; 
end STATUS_OVERLAY; 
FILL_1 word fill prefix ADBDEF tag $$; /* spare 
FILL_2 Longword fill prefix ADBDEF tag $$; /* spare 
NAMECEN byte unsigned; /* device name Length 
DEVNAM byte uns igned dimension 15; /* device name (ASCII) 
constant "LENGTH equals . prefix ADB$ tag K; /* length structure 
constant "LENGTH" equals . prefix ADB$ tag C; /* Length structure 


end ADBDEF ; 
end_module SADBDEF ; 


~~ = SS 
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module SADLDEF; 
eee 


Aa ADL = Allocated Device List 

/* For each disk or Hog A device allocated by a Journal ACP, the 
/* ADL off the UCB for the ACP Control Journal contains a ADB 
. (Allocated Device Block). 


[to-- 


f 
/ 
/ 
/ 
/ 
/ 
/ 
/ 


aggregate ADLDEF structure fill prefix ADLS$; 


NK longword unsigned; /* Link to next ADL for this ACP (onl 
/* for first ADL, not for extensions 
ue longword bt ee /* backpointer to UCB 
SIZE word unsigne /* size of tist. CADL+ADBs in this ADL) 
Y oyte unsigned; /* data structure type 
pie byte unsigned: /* CJF subtype field 
EXTEND ors uns igned: /* next ADL extension 
DEVCNT word unsigned; o Oy ‘en counts ! of devices allocated 
n } 
ADBCNT word ced mee /* number of ADBs in this ADL 
FSTADB word uns /* abba first ADB, from this location 
FILL, word tl spretix, ADLDEF tag $$; /* § | 
constant FIXED_LEN equals . prefix ADL$ tag K; /* fength fixed portion 
constant FIXED-LEN equals . prefix ADL$ tag C; /* Length fixed portion 
constant START_ “ADB equals . prefix ADLS$ tag K; /* Start of List. 
constant START_ADB equals . prefix ADL$ tag C; /* Start of List. 


end ADLDEF; | 
end_module SADLDEF; 
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module SBCBDEF; 
/t++ 
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/* 

is BCB - Buffer Control Block 

/* For —— mounted poyrant there are two buffers pointed to by the 

/* BCB which is pointed to by the journal UCB. The BCB always describes 

. the characteristics and status of these buffers 

[t-- 

aggregate BCBDEF structure fill prefix BCBS; 
ADDR1 Longword unsigned; /* address of buffer 1 
ADDR2 Longword unsigned; /* address of buffer 2 
SIZE word unsigned; /* structure size 
TYPE arte unsigned; /* structure type code 
SUBTYPE byte unsigned; /* subtype field for CJF 
STS_OVERLAY union fill; 

STS b /* status code 


ed; 
STS_BITS structure fill; 
UR bitfi 


C eld mask; /* 
end ST 3 
end STS_OVERLAY; 
FILL_1 word fill prefix BCBDEF tag $$; /* 
FILL 2 byte fill prefix BCBDEF tag $$; /* 
UCB _longword unsigned; /* 
BS1Z1 word unsigned; /* 
BSIZ2 word une toned: /* 
STS1_OVERLAY union fill; 
STS1 word unsigned; /* 
STS1_BITS structure fill; 
TOPR bitfield mask; /* 
WRPR bitfield mask /* 
WRPEN bitfield mask; /* 
REPR bitfield mask; /* 
REAPEN bitfield mask; /* 
EXTPR bitfield mask /* 
EXTPEN bitfield mask; /* 
RECLE bitfield mask; /* 
SETPEN bitfield mask; /* 
NWVPR bitfield mask; /* 
end STS1_BITS; 


end STS1_OVERLAY; 

STS2 word unsigned; 
WRCNT1 word unsigned; 
WRCNT2 word unsigned; 
RDCNT1 word unsigned; 
RDCNT2 word unsigned; 
OFFS1 word unsigned; 
OFFS2 word unsigned; 

VBN1 Longword unsigned; 
VBN2_ longword unsigned; 
PRVVBN Longword unsigned; 
PRVEVBN longword unsigned; 
PRVOFF word unsigned; 


current buffer indicator 


SPARE 


SPARE 

UCB address of journal 
size of buffer 1 in bytes 
size of buffer 2 in bytes 


status of buffer 1 


1/0 in progress bit 

write in progress bit 

write pending bit 

read in progress bit 

read pending bit 

extend in progress 

extend pending 

buffer read and cleared bit 
“set-buf fer-to-next-one’’ pending 
create new version in progress 


status of buffer 2 

write count for first buffer 

write count for second buffer 

read count for first buffer 

read count for second buffer 
offset first free byte ir buffer 1 
offset first free byte in buffer 2 
first VBN buffer 1 

first VON buffer 2 


VBN bucket in which previous chunk is 
revious entry is 


VBN bucket in which 


offset of previous Bo written 
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PRVEOFF word unsigned; 
LOWSN Longword unsigned; 
HISN Longword unsigned; 


CRCTBL_Longword unsigned; 
HISN_CMPL longword unsigned; 
HISN_WRT Longword unsigned; 


constant “‘LENGTH’’ equals . prefix BCB$ tag K; 
constant "LENGTH" equals . prefix BCB$ tag C; 
end BCBDEF; 


end_module SBCBDEF; 


offset of previous entry written 
lowest seq.no in current buffer 
highest seq.no of any entry written 
into the our ters 
address of CRC table 
High sequence number completely in a buffer 
“a sequence number written 
© secondary storage 
Length of structure 
length of structure 


a. 


~~ ee SE EE 
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module SJNLACBMDEF ; 
/tee 


. JNLACBM = Journal access bit map 
w 


/* This bit map will contain a single bit for each node in 

/* the cluster. When ever a slave node assigns his first 

/* journal to the ipuraes or deassigns his last journal channel 
/* the node bit will be adjusted. This bit oer will be indexed 
/* via the node index portion of the node's CSID 


aggregate JNLACBMDEF structure fill prefix JNLACBM$; 
FLINK Longword unsigned; /* Forward Link 
BLINK ere unsigned; /* Backward Link 
SIZE word unsigned; /* structure size 
TYPE byte unsigned; /* structure type code 
SUBTYPE byte unsigned; /* structure subd type field 
MAPSIZE word unsigned; /* Bit map size 
BITMAP character length 0 tag X ; /* Bit map start 
constant LENGTH equals .; /* Size of JNLACBM header 


end JNLACBMDEF ; 
end_module SJNLACBMDEF ; 


11 
JNLDEF INT. SDL; 1 16-SEP-1984 16:40:05.94 Page 23 


module SJNLBUFDEF ; 
Jeter 


/* 
s JNLBUF = Buffer of which there are two for each journal 
. The BCB pointed to by the journal UCB points to the two 


/t-- 


aggregate JNLBUFDEF structure fill prefix JNLBUFS; 


word unsigned; _ 
® 
LEN2 word unsigned; /* 
TYPE_OVERLAY union fill; 
YPE te unsigned; /* 
TYPE_BITS structure fill; 
OSER bitfield mask; /* 
CONTR bitfield mask; /* 
end TYPE BITS; 


BUFHDR byte unsigned; | /* 
FILL_1 word fill prefix JNLBUFDEF tag $$; /* 
BUFST2 word unsigned; - 
* 

DTYPE_OVERLAY union fill; 
STRUCT byte unsigned; . 
* 
DTYPE byte unsigned; /* 


end DTYPE_OVERLAY; 
STYPE_OVERLAY union fill; 
ENTTYP byte unsigned: /* 
SUBTYPE pce unsigned; /* 
end STYPE_OVERLAY; 


VBN Llongword unsigned; /* 
STENO word unsigned; /* 
ILL_2 word fill prefix JNLBUFDEF tag $$; /* 

JNLIB Longword unsigned; /* 

LOWSN longword unsigned; o 

® 

HISN longword unsigned; s 

® 

COPTR word unsigned; . 

+ 
/* 

STS_OVERLAY union fill; 

STS word unsigned; /* 
STS_BITS structure fill; 

UPDATE bitfield mask; /* 
end STS BITS; 

end STS_OVERLAY; 

CHKSUM Tongword unsigned; /* 

constant HDRLEN equals . prefix JNLBUF$ tag K; /* 

constant HDRLEN equals . prefix JNLBUF$ tag C; /* 
constant STDAT equals . prefix JNLBUF$ tag K; /* 
constant STDAT equals . prefix JNLBUFS$ tag C; /* 


SRS LSS ea as es 


buffers 


total length of buffer header minus 
Length of this word (RMS seq. record) 
second word of length (only for tape) 


record type to indicate control entry 


user entry 
control entry 


buffer header length 

SPARE (to match other records) 

buffer size : this MUST be Ist word 
in 3rd longword 


data structure type value : this MUST 
be 3rd byte in 3rd longword 
data type field 


entry type 
deta uubtves field 


ournal block number (of Ist. bl in bucket) 


ast entry/chunk in bucket - offset 
spare 

ournal ID 2 
owest sequence number of all entries 
in this bucket 
highest sequence number of all entries 
in this bucket 
current data pointer (! of data bytes 
written for BI,AI,AT and next byte 

to write for RU jnl) 


buffer status 
this buffer has been updated 
CRC of bucket 
length header 
bengeh header 


rst longword of data 
first longword of data 


~~. & & . & & = S {= { = 
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end JNLBUFDEF; 
end_module SJNLBUFDEF; 
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| 
| 


4 


po 
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module SJNLBXSTSDEF ; 


{e+e 
/* 
/* JNLBXSTS = Journal block transfer in presrere Queue entry 
/* This structure is used to keep track of all pertenant 
/* information concerning an IRP that has been initiated 
/* on the local node via a block transfer request from 
/* some other node. If the connection between the two 
/* nodes breaks before the local node has sent the response 
/* then the the message may be retransmitted and we must be 
/* able to deal with that. eng this structure will 
je contain all the information we will need. 
[tees 
aggregate JNLBXSTSDEF structure fill prefix JNLBXSTS$; 
FLINK  longword unsigned; /* Forward Link 
BLINK oe pe unsigned; /* Backward Link 
SIZE word unsigned; /* size data structure 
TYPE byte unsigned; /* type of structure 
SUBTYPE byte unsigned; /* subtype of structure 
STS_OVERLAY union fill; 
STS longword unsigned; /* block Xfer status 
STS_BITS structure fill; 
READCMPL bitfield mask; /* The block read is complete 
READINP bitfield mask; /* The block read is in progress 
WRITECMPL bitfield mask; /* The block write is complete 
WRITEINP bitfield mask; /* The block write is in progress 
RESPSENT bitfield mask; /* The response has been sen 
FNCTCMPL bitfield mask; /* The function is complete (no response sent) 
CNXBRK bitfield mask; /* The connection has broken 
end STS_BITS; 
end STS_OVERLAY; 
REQ_CSIB_OVERLAY union fill ; 
REQ_CSID longword unsigned; /* CSID of node which originated 
/* the message (requestor) 
REQ_CSID_SUBF structure fill; 
REQ_CSID_SEQ word unsigned; /* CSID sequence number 
REQ_CSID_IDX word unsigned; /* CSID node index 
end REQ CSID_SUBF ; 
end REQ CSIB_OVERLAY ; 
BTXSEQNO Longword unsigned; /* Block transfer sequence # 
CURR_IRP Longword unsigned; /* Address of the current IRP ; 
RTX_TRP Longword unsigned; /* Address of IRP from last retransmit 
SPARE1 Longword unsigned; 
seanes longword unsigned; 
SPARES longword unsigned; 
constant LENGTH equals . tag K ; /* Structure size 
constant LENGTH equals . tag C ; /* Structure size 


end JNLBXSTSDEF ; 
end_module SJNLBXSTSDEF ; 
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module SJNLCWQDEF ; 


aggr 


Journal cluster write queue entry 
This structure is used to keep track of all 
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writes that have been sent from a slave to the master 


node but have not 


es been written to eee 
During fail over of a node this informat 
to resubmit the write's for the user. 


ondary storage. 
on is necessary 
Onze we have 


toid the user that the write is complete we must make 
sure that it makes it out to the file unless the node 
it was issued from crashes 


spate JNLCWQDEF structure fill 

FLINK longword unsigned; 

BLINK mners unsigned; 

SIZE word unsigned; 

TYPE byte unsigned; 

SUBTYPE byte unsigned; 

uCcB enexere uns toned: 

FOVSTS_OVERLAY union Till; 
FOURSTAT Longword unsigned; 
FOVSTS BITS structure fill; 

RESUB bitfield mask; 

end FOVSTS BITS; 

end FOVSTS_ OVERLAY; 


SEND_CSID_GVERLAY union fill ; 
SEND_CSID lLongword unsigned; 


SEND_CSID_SUBF structure fill; 
SEND_CSID_SEQ word unsigned; 
SEND_CSID_IDX word unsigned; 

end SEND CSID SuBr ; 

end SEND _CSIB_OVERLAY ; 


SEND_UNIT word unsigned; 


IOFUNC word unsigned; 
IRP longword unsigned; 


SEQNO longword unsigned; 
LSEQNO bonguord unsigned; 
BEGIN_OFFSET lLongword unsigned; 


BYTCNT_REM word unsigned; 
BYTCNT_ORG word unsigned; 
RUID octaword unsigned; 
WRUFLAGS longword unsigned; 
WRMASK Longword unsigned; 
IRPESTATUS Longword unsigned; 
ASID longword unsigned; 
FACCOD word unsigned; 

IOSTS byte unsigned; 


prefix JNLCWQ$; 
/* 


Forward Link 

Backward Link 

size data structure 
type of structure 
subtype of structure 
Back pointer to the UCB 


/* fail-over status 


/* this entry must be resubmitted if set 


CSID of node we originally 
sent the message to 


CSID sequence number 
CSID node index 


Unit number of original 
master journal device 

Original 1/0 function 

Address of the IRP. We aey 
still have to post it at failover 
Entry’s sequence # (0 in not ACK'd) 
Entry's local sequence # 

Beginning offset of remaining 
portion of a partial write 

Bytes remaining for partial write 
Original count of bytes in message 
Recovery unit | 
Write RU flags. 

Write mask 
status field nope in IRPE 
Assign ID for the channel 

Channel facility code ¢ 

1/0 status (used only for writes) 
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WRATR byte unsigned; /* Write attributes 

EPID longword unsigned; /* Process EPID 

ARB_PRIV quadword ne iree /* Priv mask from ARB 

MSGBUF character Length 0; /* Base of journal entry in a message 
constant FIXED_LEN equals . tag C ; /* Fixed size 

constant FIXED_LEN equals . tag K ; /* Fixed size 


end JNLCWQDEF ; 
end_module SJNLCWQDEF ; 


———— 
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module SJNLDBDEF ; 


{ree 
/* 
/* JNLDB - off of each CDT is hung a data block that serves as 

/* a queue Listhead for remote IRP's waiting on a response 
/* for a connection, a queue Listhead for the slave UCB's 
/* that access the master node via that CDT, and a pointer 
/* to a buffer that contains entries written to the master 
/* (via the CDT) but whose Q10s have not yet been ACK'd 

/* by the master. This structure is used for master 

S failover recovery. 

Tome 


aggregate JNLDBDEF structure fill prefix JNLDBS; 


QFL Longword unsigned; /* IRP queue forward Link 
IRPQBL ere unsigned; /* IRP queue backward Link 
SIZE word unsigned; /* size data structure 
TYPE byte unsigned; /* type of structure 
SUBTYPE byte unsigned; /* subtype of structure 
UCBQFL Longword unsigned; /* UCB queue forward Link 
UCBQBL longword unsigned; /* UCB queue backward Link 


BUFFER Longword unsigned; /* Pointer to write buffer 
FILL_1 Longyore fill prefix JNLDBDEF tag $$; /* Spare 
constant ‘LENGTH’ equals . prefix JNLDBS tag K; 
constant "LENGTH" equals . prefix JNLDB$ tag C; 
end JNLDBDEF ; 


end_module SJNLDBDEF ; 
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ute SINLLOGDEF ; 


/* 

aS JNLLOG = Journal error log function bits 

/* This structure defines the bits indicating to SYE the error 
i. being logged 


/t-- 


seoregete J ge Loree union ig a JNLLOGS; 
F_BITS structure 


m3 T bitfield aeeks /* RU journal extended 
RUNEXT bittield mask; /* RU journal could not be extended 
SLVCRFAIL bitfield mask; /* Failure on slave node while 


/* attempting a create 
end JNLLOGDEF BITS; 
end SNLLOGDEF ; 


end_module SJNLLOGDEF ; 
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module SJNLRCDEF ; 
{tee 


/* 
~ JNLRC = Journaling Read Context 
The JNLRC holds the information nécessary for read failover. 


/t-- 


ssorepote it JNLRCDEF structure fill peecis sMLACS: 


lLongword fill prefix JNLRCDEF tag $ /* unused - forward Link 
FILL-2 Longword fill prefix JNLRCDEF tag $8: /* unused = back Link 
SIZE “yore une toned; /* size of structure 
TYPE ore unsigned; /* data oh type 
SUBTYPE byte unsigned: /* CJF subty 
SEQNO Lon — une: ned; /* seq # previous entry 
RUID aun union 
RulD sventar’ val ned octaword; /* Recovery unit ID (RU only) 
RUID oe structure fill; 
BATTIM yecners unsigned: /* date/time prev. entry (NONRU ONLY) 
CSID_UNION union ; 
$ID lLongword unsigned; /* CSID portion of RUID, 
CSID_OVERLAY structure fill; 
CSID_SEQ word unsigned; /* CSID sequence number 
CSID_IDXx vere unsigned; /* CSID node index 
end CSID- ov VERL 
end CSID_UNI 
RUID_LW4~ Uonguord ss alineaal /* Forth longword of RUID 


end RUID OV ERLAY 
end RUID_UNI 
FLAGS OVERLAY unten fill; 


FLAGS byte unsigned; /* Flags 
FLAGS _B A steus ture fill; 
ng Oe Prd ee itfield mask; /* Read direction 

end FTAGS OVERLAY: ; 

FILL_3 byte dimension 3 fill prefix JNLRCDEF tag $$; FA 

FLTRS Longword unsigned; © Offset to filters 
constant ‘LENGTH’ equals . prefix JNLRC$ ta /* length fixed part 
constant “‘LENGTH’’ equals . prefix JNLRC$ tas /* Length fixed part 


end JNLRCDEF ; 
end_module SJNLRCDEF ; 
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module SJNLRMDEF ; 
{ree 


/* 
a JNLRM = Journaling Remaster Block 
. The JNLRM is used by the CSP to construct a JSB for remastering a journal. 


/t-<- 


overepete JNLRMDEF structure fill Prete JNLRMS; 
FILL. 


RMDEF tag $$; 


unused - forward Link 
unused = backward Link 


1ZE word unsigned; /* size of structure 
TYPE byte unsigned; /* data structure type 
SUBTYPE byte unsigned; /* subtype for CJF data structure 


FLAGS OVERLAY union fill: 


FCAGS word unsigned; /* flags word 

FLAGS BITS structure fill; 
DSKJNL bitfield mask; /* Disk journal 
TAPJNL bitfield mask; /* Tape journal 
TMPFIL bitfield mask; /* Temp e 
DIFACP bitfield mask; /* Different ACP 

end FLAGS BITS; 

end FLAGS_OVERLAY; 


COPIES byte unsigned; /* number of copies 

FILL_3 byte fill prefix JNLRMDEF tag $$; /* fill 

CONBLK Longword unsigned; /* address of the Ist connect block 
ACPNAMOFF word unsigned; /* offset to ACP name 


ACPNAMLEN word unsigned; 


constant ‘LENGTH’ equals . prefix JNLRM$ tag K; 
constant "LENGTH" equals . prefix JNLRM$ tag C; 


constant ‘‘DSKJNLLST’’ equals . prefix JNLRM$ tag K; 
constant ‘‘DSKJNLLST’’ equals . prefix JNLRM$ tag C; 


TAPGRPOFF word unsigned; 
TAPGRPLEN word unsigned; 


constant ‘“TAPJNLLEN’ equals . prefix JNLRM$ tag K; 
constant ‘“TAPJNLLEN’’ equals . prefix JNLRM$ tag C; 


end JNLRMDEF ; 
aggregate JNLRMIDEF structure fill prefix JNLRMS; 


ACP name Length 


tength fixed part 
length fixed part 


start info for disk jnls 
- dev names, ver #'s 


offset to tape group name 
tape group name length 


Length for tape journal 
length for tape journals 


DEVNAMOFF word unsigned; /* offset to device name 
DEVNAMLEN word unsigned; /* device name length 
FILVEROFF word unsigned; /* offset to file version 
FILVERLEN word unsigned; /* file version length 
constant “‘DSKENTLEN’’ equals . prefix JNLRM$ tag K; /* Length of disk journal 
constant "DSKENTLEN’ equals . prefix JNLRM$ tag C; /* information 


— 
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end JNLRMIDEF; 
end_module $JNLRMDEF ; 
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ed SINLSFTDEF; 
= JNLSFT == Spool File Table 
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The JNLSFT describes the physteat storage medium for the journal spooi 


file. Spool files are used 


b : 
constant KcPos equals . prefix JNLSFT$ tag K; 


constant ACPQB equals . prefix JNLSFT$ tag 
FORACPLNK Longword unsigned; 

BACACPLNK Longword unsigned; 

JMT Longword unsigned; 


SPL_COP byte unsigned; 


C3 


or tape groups on 
The JNLSFTs for_a given tape group are Linked 


ly. 
together in a list. 
The first JNLSFT is pointed to by each JMT for each tape in the group. 


d; /* 
FILC_2 byte dimension 3 fill prefix JNLSFTDEF tag $$; 


MAX_JNLS word unsigned; 
COPY_NUM word yns igned: 
WRCNT word unsigned; 
RDCNT word unsigned; 
STATUS_OVERLAY union fill; 
STATUS songuord unsigned; 
STATUS_BITS structure fill; 
HEAD _SFT bitfield mask; 
ACTIVE bitfield mask; 


end STATUS BITS; 
end STATUS_OVERLAY; 
BASEVBN Longword unsigned; 


= d; 
constant “LENGTH” equsis - prefix mete : 


K; 
C; 


Forward Link for JMT's for this journal 
Backward Link for JMT's for this journal 
size of JNLSFT 
structure type of JNLSFT 
structure su type of JNLSFT 

/* label for ACP queue block 

/* label for ACP queue block 


Forward Link to next JMT for this ACP 

Backward Link to next JMT for this ACP 

First JMT in List of JMTs for group 
for which this is a spool file 

number of spool files in list 


/* spare 


max ! of jcurnals for this spool file 
number of spool file (zero relative) 
write count 

read count 


journal media status 


first JNLSFT (copy) for this group 
spool file not empty: being used 


Base VBN: to be substracted from bucket 
VBN to get VBN of block in file 

pointer to journal spool file WCB 
pointer to journal spool file UCB 

max VBN in journal disk spool file 
first VBN in Yournal disk spool file 


ournal spool file file 1D sequence number 
ournal spool file file ID rel vol num 


spare 

~+ Label disk on which file is 
next VBN for next bucket to write to 
Length 


journal spool file file ID number 


ength 
ot file. (spool file is used as 
tape, but we must keep track of VBN) 
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end JNLSFIDEF; 
end_module SJNLSFTDEF; 
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nodule SJMTDEF; 
. JMT == Journal Merge Table 


/* The JMT describes the passe tae dh 1 for the journal copy. 
/* The JMT is pointed to by each hen multiple journals are 
/* kept on the same storage medium (ie multiple journals on one 
. ta Se, eheee exists one JMT for the tape, and many VCB's may 
point to it. 


/* ALL bits marked (*) are set in the head JMT (first in List) only 
/* in the current version. 


es if hg A structure fill prefix JMT$; 


K longword ene toned: /* Forward Link for JMT's for this journal 
BACINLLNK mom root OB unsigned; /* Backward Link for JMT® s for this journal 
SIZE word unsigned; /* size of JMT 
TYPE byte unsigned; /* structure type of JMT 
SUBTYP oyte. unsigned; /* structure subtype of JMT 
constant ACPQB equals . prefix JMT$ tag K /* label for ACP queue piock 
constant ACPQB equals . prefix JMT$ tag C3 /* label for ACP queue bloc 
FORACPLNK Longword unsigned; d; /* Forward Link to next it for this ACP 
BACACPLNK longword unsigned; /* Backward Link to next JMT for this ACP 
ACP_PRI ores unsigned; /* i priority (priority for 1/0) 
rit 2 byte dimension’ 3 fill prefix JMTDEF tag $$; /* s 
b Rae quere unsigned; /* potater to ACP access rionts block 
AOB™ lLongword unsigned; /* address of AQB for owner ACP 
JNLS word unsigned; /* max ! of journals for this JMT 
FILCS 3 word fill prefix JMTDEF tag $$; /* spare 
COPY-NUM word unsigned; /* copy number (zero relative) 
JNLIBCTR word yns igned; /* journal ID counter 
WRCNT word unsigne /* write count 
RDCNT word unsigned; /* read count 
SPOOLING OVERLAY union fill; 
SPOOCING byte unsigned; /* spool byte: if any of these bits is 


/* set, spooling must be done. 
SPOOLING_BITS structure fill; 
REPR bitfield mask; /* read in progress 
EOTPR bittietd reashi /* EOT processing going on (*) 
end eee NG_BITS; 
end yy VERLAY; 
FILL_4 byte Sincestes 3 fill prefix JMTDEF tag $$; /* spare 


end JMIDEF; 
aggregate gy structure fill prefix JMT$ 
te dimension 44 fill prefix IMT DEF tag $$; 


STATOS OVERLAY union fill; ; : 
STATUS Longword unsigned; /* journal media status 


JNLDEF INT.SDL;1 

STATUS_BITS structure fill; 
SPCBYTE bitfield mask length 6; 
WRPR bitfield mask; 
NOWRJNL bitfield mask; 
HEAD_JMT bitfield mask; 
SPOOCED bitfield mask; 
SPOOLSYNC bitfield mask; 
STARTSP bitfield mask; 
STOPSP bitfield mask; 
CANCELIO bitfield mask; 
DMT bitfield mask; 
AVL bitfield mask; 
SYNCHCAN bitfield mask; 
REPEN bitfield mask; 
INFPEN bitfield mask; 
NOWRTP bitfield mask; 

end STATUS BITS; 


BI 
end STATUS_OVERLAY; 
JMTSFT Longword unsigned; 


SPARE1 longword unsigned; 
eoanee lLongword unsigned; 
SPARES longword unsigned; 
SPARES lLongword unsigned; 
OWNUIC Longword unsigned; 
PROT word unsi 


pred: 
FILL_5 word fill prefix JMTDEF tag $$: 


STVBN longword unsigned; 
LTVBN lLongword unsigned; 
NUM word unsigned; 
SEQ word unsigned; 
RVN word unsigned; 


fill 


C 

L character ~—e 
L oyee retix 
WAM character length 13 


aon 
zDe 


FILL_8 byte fill prefix JMTDEF tag $$; 


GTB Tongword unsigned; 
JFTE longword unsigned; 


SFT Longword unsigned; 
SPL_VBN lLongword unsigned; 


VCB_COUNT word unsigned; 


6 word fill prefix JMTDEF tag $$; 
JMTDEF tag $$; 
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spool byte 

write in progress (currently unused) 

cannot write to journal now (not 
even spool file) 

first JMT (copy) for this journal 

device is spooled (*) 

all io to journal file (incl spool 


file) must wait: switching back or 


reres between tape and spool file 


start spooling (*) 

stop spooling (*) 

cancel I0 to tape (*) 

this copy is marked for dismount 

this copy is available 

synchronize with CANCELIO on tape (*) 
read pending 

inform ACP pending (*) 


do not write to tape: ACP stops driver 


the JMT or SFT on which an error 
ocurred (*) 


owner UIC 
Erecectren mask 
PARE 


base VBN first bucket —. file VBN to get bucket VBN) 


pointer to journal file WwW 

pointer to journal file UCB 

max VBN in journal disk file 

first VBN in journal disk file 

Last VBN for this file 

ournal file file ID number 

Journal file file ID sequence number 
ournal file file ID rel vol num 


spare 
volume Label disk/tape on which file is 


spare 

group name 

spare 

address of corresponding GTB in ACP 
virtual memory. ; 

address of corresponding JFTE in ACP 
virtual memory 

first SFT (spool file table) 

next VBN for next bucket to write to 


spool file. (spool file is used as 
tape, but we must keep track of VBN) 


number of VCB's pointing to JMT 


Cia: ERICA EPS VEN SECTS ce ye 
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- (not including VCB_CNTRL) 
e 


/ 
FILL.9 word fill prefix JMTDEF tag $$; /* spar 

VCB_ENTRL longword unsigned; /* address of control VCB (tape only) 

WwOFC Longword unsigned; /* wait Q forward Link 

WQBL longword unsigned; /* wait Q backward Link 

VCL Longword unsigned; /* List of addresses associated V(CB's 
/* file version number 
/* Length Lebel 
/* Length Label 


FILVER character length 6; 

constant ‘‘LENGTH’' equals . prefix JMT$ tag K; 

constant "LENGTH" equals . prefix JMT$ tag C; 
end JMTDEF1; 


end_module SJMTDEF; 


~~. . = ~ & SS 
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module SNDLDEF; 
{tee 


/* 
es NDL = Name table Device List 


/* This structure has a fixed header size but the tail end is a variable 
: Length depending on how many name table device names are in it. 


{too 


QFL lLongword unsigned; /* forward q Link 
NDLQBL longword unsigned; /* backward q Link 
SIZE word unsigned; /* size of structure 
TYPE pre unsigned; /* structure type for NDL 
SUBTYPE byte unsigned; /* structure subtype 
COUNT byte ns ipred: /* count 
FILL.1 word fill prefix NDLDEF tag $$; /* spare 
FILL_2 byte fill prefix NDLDEF tag $$; /* spare 
constant FIXEDLEN equals . prefix NDL$ tag kK; /* fixed size length 

P corasgnt FIXEDLEN equals . prefix NDL$ tag C; /* fixed size tength 
en 3 


end_module SNDLDEF; 


= ! 
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module SRUEDEF; 
{e+e 


pai 
/* RUE - ay Unit List Element 
/* The Recovery Un 


it List contains one of these elements per recovery 


/* unit active on the RU journal. The te follow the RUL, which is pointed 


/* to by the RU-journal's UCB. When the 


ournal device is created a fi 


xed 
/* size List is allocated: for the RUL and a number of RUES. When the List needs 


/* 
/* 
[to-<- 


to be extended, it is replaced by a longer one. 


aggregate RUEDEF structure fill prefix RUES; 
RUID_UNION union fill; 
RUID quadword unsigned dimension 2; 
RUID_OVERLAY structure fill; 
RUID_LW1 longword unsigned; 
RUID_LW2 longword unsigned; 
CSID_UNION union fill ; 
$ID Longword unsigned; 
CSID_OVERLAY structure fill; 
CSID_SEQ word unsigned; 
CSID_IDX word unsigned; 
end CSID_OVERLAY; 


NION; 
D_LW4~ lLongword unsigned; 
OVERLAY; 
end RUID_UNION; 
LSTVBN se gen unsigned; 
LSTOFF word unsigned; 
JNLCNT word unsigned; 
INDEX Longword unsigned; 
SEQNO Longword unsigned; 
FSTEVBN Longword unsigned; 
FSTVBN longword unsigned; 
QUOTA longuerd unsigned; 
STATUS _OVERLAY union fill; 
STATUS Longword unsigned; : 
constant ‘LENGTH'’ equals . prefix RUE$ tag K 
constant ‘LENGTH’ equals . prefix RUE$ tag 


STATUS BITS structure fill; 
PURGED bitfield mask; 
ROLL_BACK bitfield mask; 

OLL_FORW bitfield mask; 
T_FLSHD bitfield mask; 
OVER_QUOTA bitfield mask; 
PHASE! bitfield mask; 
PHASE2 bitfield mask; 
ORT bitfield mask; 
P2$AB$2 bitfield mask; 
RESIDUAL bitfield mask; 
COMPLETED bitfield mask; 
CLEANUP bitfield mask; 
FROZEN bitfield mask; 


RU ID 


First longword of RUID 
second longword of RUID 


CSID portion of RUID, 


CSID oe gg ne number 
CSID node index 


Forth lLongword of RUID 


VBN of bucket with last entry written 
offset of last entry written 

count of journals touched by RU 

unique index for this RU 

sequence number last entry written 

VBN of first entry written p 

VBN of first roll forw. entry written 
remaining number of bytes allowed to write 


status 
length of RUE 
Length of RUE 


entry is free indicator 

there is at least one roll back entry 
there is at least one roll forward entry 
there is at least one entry not flushed 

quota exceede 

phasel done 

phase2 done 

abort done 

phase2 or abort entry to be encountered 2* 
before RU deletion 

this is a residual RU in journal 

RU has been completed (rolled forward) 
vestigial entry for RU can be ignored 
frozen RU 
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RUSYNCEX bitfield mask; 

RUSYNCWR bitfield mask; 

NOFAC bitfield mask; 

NOOBJ bitfield mask; 
end STATUS ihe 


end STATUS_OVER 
end RUEDEF; 


end_module SRUEDEF; 
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RUSYNC entfy expected 

RUSYNC entry written 

Frozen due to missing facility 
Frozen due to missing object 


~~ I 


—s eee eee Se = 
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module SRULDEF ; 
+++ 


is RUL = Recovery Unit List 
/* This data structure forms the header of the List with the recovery 


/* urits that are parveatiy active on the RU-journal for which this 
/* List is used. The UCB of a RU journal points to the RUL for it. 
7 


/t=- 


aggregate RULDEF structure fill prefix RULS; 
9g non : p 


UES word unsigned; /* number of RUEs in the List 
FILC_1 word fill prefix RULDEF tag $$; /* spare 
FILL_2 Longword fill prefix RULDEF tag $$; /* spare 
SIZE word unsigned; /* size of total List (RUL+all RUEs) 
TYPE r*e unsigned; /* data structure type 
SUBT YP “ye unsigned; /* data structure subtype _ 
constant FIXED_LEN equals . prefix RUL$ tag K; /* Length of RUL fixed portion 
- const ene FIXED_LEN equals . prefix RUL$ tag C; /* Length of RUL fixed portion 
e 3 


end_module $RULDEF; 


RN Re ie Ae Lae ee RE OS 


JNLDEF INT.SDL;1 16-SEP-1984 16:40:08.92 Page 43 


module SVCLDEF; 
jes 


is VCL = VCB List 

/* The VCL contains the VCB addresses of VCBs of journals that have been 
/* created for : given tape group. The JMT of the head-JMT for that group 
- points to this VCL 


/e- 


aggregate VCLDEF structure fill prefix VCL$; 
” say l . 


ongword unsigned; /* JMT back pointer 
NUM_VLES word uns gned: /* number of VLEs in VCL 
COUNT word unsigned; /* number of VCB addresses in VCL 
SIZE word unsigned; /* size of structure 
TYPE x*e unsigned; /* type of data structure 
SUBTYP "772 unsigned; /* subtype of data structure 
constant FIXED_LEN equals . prefix VCL$ tag K; 


constant FIXED_LEN equals . prefix VCL$ tag C; 
end VCLDEF; 


end_module $VCLDEF; 


ek ee ee 


peo 
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module SVLEDEF; 
je 


0 VLE = VCB List element 
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/* The VCL contains the VCB addresses of VCBs of journals that have been 
/* created for a given feee grows. The JMT of the head-JMT for that group 


/* points to this VCL. The 
points to a VCB. 


/*- 


aggregate VLEDEF structure fill prefix VLES$; 
STATUS_OV fill; 


ERLAY union 


AY; 
FILL_1 word fill prefix VLEDEF tag $$; 
VCB longword unsigned; 


constant “‘LENGTH’’ equals . prefix VLE$ tag K; 
constant "LENGTH" equals . prefix VLE$ tag C; 


end VLEDEF; 
end_module S$VLEDEF; 


L contains VLEs, each of which, when in use, 


/* status 


/* spare 
/* VCB address 


ee Be oo 
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